Developer CD Series 2000 August: Tool Chest/Dev.CD Aug 00 TC Disk 1.toast/pc/utilities/hypercard player/hypercard player 2.4/audio help/background_7507.xml

Extensible Markup Language | 1997-04-23 | 19.9 KB | 406 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>7507</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3785.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3279.css" />
    <part>
        <id>69</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>17</left>
            <top>30</top>
            <right>189</right>
            <bottom>124</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>14</textSize>
        <textStyle>plain</textStyle>
        <textHeight>18</textHeight>
        <name>Main Topics</name>
        <script>on mouseUp
select empty
set cursor to watch
lock screen
if line (word 2 of the clickLine) of me is empty then
resetMainTopicsCard
exit mouseUp
end if
put word 2 of the clickLine into topicNumber
go card topicNumber
showRightList false
hiliteTopic topicNumber
unlock screen
lock screen
showRightList true
unlock screen with visual effect wipe down fast
if the mouse is down then exit mouseUp -- trap double click
end mouseUp</script>
    </part>
    <part>
        <id>74</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>18</left>
            <top>8</top>
            <right>256</right>
            <bottom>31</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>18</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>Title</name>
        <script></script>
    </part>
    <part>
        <id>78</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>7</left>
            <top>104</top>
            <right>177</right>
            <bottom>122</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>14</textSize>
        <textStyle>plain</textStyle>
        <name>Hiliter</name>
        <script>on mouseUp
pass mouseUp
end mouseUp</script>
    </part>
    <part>
        <id>80</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>27</left>
            <top>146</top>
            <right>250</right>
            <bottom>259</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>15</textHeight>
        <name>Section</name>
        <script>-- ∆ The maximum number of lines that a subtopic can use is two.
-- To continue the name of a subtopic onto the next line,
-- simply put a tab character into the first character of the second
-- line. This script looks for that tab character and adjusts
-- accordingly.

on mouseUp
-- Go to the section clicked on.
visual effect zoom out
put word 2 of the clickLine into startLine
if tab is in line startLine of me then
-- The previous line is a continuation of the line clicked.
put startLine into nextLine
subtract 1 from startLine
else
if tab is in line (startLine + 1) of me then
-- The next line is a continuation of the line clicked.
put (startLine + 1) into nextLine
else
-- The line clicked is a complete section name.
put empty into nextLine
end if
end if
selectWholeLine startLine,the name of me,nextLine
wait 5
put getSectionName(line startLine of me) into cardName
goCard cardName
end mouseUp

function getSectionName whichSection
get number of words in whichSection
put word 2 to it of whichSection into whichSection
if last char of whichSection is return then
delete last char of whichSection
end if
return whichSection
end getSectionName</script>
    </part>
    <part>
        <id>85</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>91</left>
            <top>269</top>
            <right>170</right>
            <bottom>288</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Quick View</name>
        <script>on mouseUp
visual effect wipe up fast
goBalloons
end mouseUp</script>
    </part>
    <part>
        <id>86</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>172</left>
            <top>269</top>
            <right>243</right>
            <bottom>288</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Overview</name>
        <script>on mouseUp
visual effect wipe up fast
goOverview
end mouseUp</script>
    </part>
    <part>
        <id>88</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>13</left>
            <top>269</top>
            <right>89</right>
            <bottom>288</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Leave Help</name>
        <script>on mouseUp
leaveHelp
end mouseUp</script>
    </part>
    <part>
        <id>79</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>27</left>
            <top>129</top>
            <right>250</right>
            <bottom>149</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Instruction 2</name>
        <script>on mouseUp
beep
end mouseUp</script>
    </part>
    <part>
        <id>89</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>125</top>
            <right>256</right>
            <bottom>259</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Section Cover</name>
        <script></script>
    </part>
    <part>
        <id>90</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>41</left>
            <top>239</top>
            <right>219</right>
            <bottom>260</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>LastDate</name>
        <script></script>
    </part>
    <part>
        <id>93</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>12</left>
            <top>127</top>
            <right>132</right>
            <bottom>149</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>ProtoNormalBtn</name>
        <script>on mouseUp
put putSoundNameHere into theSoundName --we stick the actual sound name into "putSoundNameHere"
if the CommandKey is "down" then
answer "Are you sure you want to delete" && quote & theSoundName & quote & "?"¬ --∆
with "No" or "Yes"  --∆
if it is "Yes" then --∆
set cursor to watch
deleteMe
exit mouseUp
end if
set the hilite of me to false
else
if ":Audio Help" & return is in the stacksInUse & return then --∆
if not SndExists(theSoundName) then
answer "The sound associated with this button has been deleted."&&¬ --∆
" Would you like to delete the button as well?"¬ --∆
with "No" or "Yes" --∆
if it is "Yes" then deleteMe --∆
set the hilite of me to false
exit mouseUp
end if
end if
play theSoundName
if the sound is not theSoundName then
answer "Sound" && quote & theSoundName & quote && "cannot be played." --∆
set the hilite of me to false
exit mouseUp
end if
set the hilite of me to true
repeat until the sound is done
if the mouse is down then play stop
end repeat
set the hilite of me to false
end if
end mouseUp

on mouseDown
if the OptionKey is down then
repeat until the mouse is up
set the loc of me to the mouseloc
end repeat
get the rect of this card
if the loc of me is not within it then
put the height of this card div 2 into vert
put the width of this card div 2 into hor
set the loc of me to hor,vert
end if
exit to hypercard
else
put false into OldState
put true into NewState -- in case the click was really fast
set the hilite of me to true
repeat until the mouse is up
put the mouseLoc is within the rect of me into NewState
if NewState ≠ OldState then
set the hilite of me to NewState
put NewState into OldState
end if
end repeat
if not NewState then
set hilite of me to false
exit to hypercard
end if
end if
end mouseDown

on deleteMe
global APHasEdit,APHasWaveEdit
put the short name of me into btnName
put the long name of this stack into stakName
delete the first word of btnName
delete the first word of stakName
delete the first char of stakName
delete the last char of stakName
lock screen
if APHasEdit is true then
if APHasWaveEdit is true then put "Clear" into menuItem 6 of menu 3  --∆
send "tempGiveUpEdit" to window "AudioPalette"
end if
get the userlevel
set the userlevel to 5
select me
send "doMenu Clear Button" to HyperCard
choose browse tool
set the userlevel to it
if APHasEdit is true then
if APHasWaveEdit is true then put "Clear Sound" into menuitem 6 of menu 3  --∆
send "tempTakeBackEdit" to window "AudioPalette"
end if
unlock screen
if ":Audio Help" & return is in the stacksInUse & return --∆
then deleteSnd stakName, btnName
if there is a window "AudioPalette" then send "update" to window "AudioPalette"
end deleteMe
</script>
    </part>
    <part>
        <id>94</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>13</left>
            <top>164</top>
            <right>33</right>
            <bottom>181</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29183</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>ProtoApptBtn</name>
        <script>on mouseup
put (":Audio Help" & return) is in (the stacksInUse & return) into InRealm  --∆
put putSoundNameHere into theSoundName --I stick the actual sound name into "putSoundNameHere"
if the CommandKey is down then
answer "Are you sure you want to delete" ¬
&& quote & theSoundName & quote & "?" with "No" or "Yes" --∆
if it is "Yes" then --∆
set cursor to watch
deleteMe
resetAPMenus
end if
else
if InRealm then
if not SndExists(theSoundName) then
answer "The sound associated with this button has been deleted."&&¬ --∆
" Would you like to delete the button as well?"¬ --∆
with "No" or "Yes" --∆
if it is "Yes" then --∆
set cursor to watch
deleteMe
end if
UpdateAnnoteMenus
exit mouseUp
end if
end if
play stop
play theSoundName
if the sound is not theSoundName then
answer "Sound" && quote & theSoundName & quote && "cannot be played." --∆
end if
end if
if InRealm then UpdateAnnoteMenus
end mouseup

on mousedown
put (":Audio Help" & return) is in (the stacksInUse & return) into InRealm --∆
put the number of me into mynum
if the ShiftKey is down then
set the hilite of me to not the hilite of me
if InRealm then UpdateAnnoteMenus
exit to hypercard
else
set the hilite of me to true
get number of btns
if InRealm then
repeat with i = 1 to it
if not IsSoundButton(i) then next repeat
if i ≠ myNum then set the hilite of btn i to false
end repeat
end if
end if
if the optionKey is down then
repeat until the mouse is up
set the loc of me to the mouseloc
end repeat
get the rect of this card
if the loc of me is not within it then
put the height of this card div 2 into vert
put the width of this card div 2 into hor
set the loc of me to hor,vert
end if
if InRealm then UpdateAnnoteMenus
exit to hypercard
end if
end mousedown

on deleteMe IncludeSound
global APHasEdit,APHasWaveEdit
put line 1 of the short name of me into butName
put the long name of this stack into stakName
delete the first word of stakName
delete the first char of stakName
delete the last char of stakName
lock screen
if APHasEdit is true then
if APHasWaveEdit is true then put "Clear" into menuItem 6 of menu 3  --∆
send "tempGiveUpEdit" to window "AudioPalette"
end if
get the userlevel
set the userlevel to 5
select me
send "doMenu Clear Button" to HyperCard
choose browse tool
set the userlevel to it
if APHasEdit is true then
if APHasWaveEdit is true then put "Clear Sound" into menuitem 6 of menu 3  --∆
send "tempTakeBackEdit" to window "AudioPalette"
end if
unlock screen
if IncludeSound ≠ "noSound" then deleteSnd stakName, butName
if there is a window "AudioPalette"
then send "update" to window "AudioPalette"
end deleteMe
</script>
    </part>
    <content>
        <layer>background</layer>
        <id>69</id>
        <text>Audio Palette Basics
About Sound
Using Sound in Stacks
Editing Sound
Recording Features</text>
    </content>
    <content>
        <layer>background</layer>
        <id>74</id>
        <text>Main Topics for Audio Help</text>
    </content>
    <content>
        <layer>background</layer>
        <id>79</id>
        <text>Click a subtopic to go to it:</text>
    </content>
    <name>Main Topics</name>
    <script>‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
Script from background: Main Topics

THE MESSAGE HANDLERS IN THIS SCRIPT:
resumeStack,openBackground,closeBackground,openCard,mouseUp,
showLeaveButton,setCheckMark,resetMainTopicsCard,showRightList,
hiliteTopic

THE FUNCTION HANDLERS IN THIS SCRIPT:
<none>

‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû

----------•• SYSTEM MESSAGES ••---------

on resumeStack
showLeaveButton
pass resumeStack
end resumeStack

on openBackground
setCheckMark true
showLeaveButton
pass openBackground
end openBackground

on closeBackground
setCheckMark false
pass closeBackground
end closeBackground

on openCard
hiliteTopic (the number of this card)
showRightList true
pass openCard
end openCard

on mouseUp
resetMainTopicsCard
end mouseUp

----------•• MESSAGE HANDLERS ••----------

on showLeaveButton
-- Show the button "Leave Help" if the user only has one stack window
-- open; otherwise hide it.
get (number of lines in the stacks is 1)
-- ∆ Localize: the name of this button.
set the visible of bkgnd button "Leave Help" to it
end showLeaveButton

on setCheckMark boolean
-- Set the menu bar for this background.
setLocationCheckMark 1,boolean
end setCheckMark

on resetMainTopicsCard
-- Hide all objects pertaining to the right-hand list.
lock screen
go card 1
showRightList false
unlock screen with visual effect wipe up fast
end resetMainTopicsCard

on showRightList boolean
-- Show or hide all objects for the right-hand list
set the showPict of this card to boolean
set visible of bkgnd button "Hiliter" to boolean
set visible of bkgnd field "Instruction 2" to boolean
set visible of bkgnd field "Section" to boolean
set visible of bkgnd button "Section Cover" to not boolean
end showRightList

on hiliteTopic topicNumber
-- Show and move the Hiliter button.
-- topicNumber is an integer, the number of the line in the Main Topics
-- to be highlighted.
put "Main Topics" into whichField
get (top of bkgnd field whichField + (topicNumber * ¬
the textHeight of bkgnd field whichField) + 2)
set the bottom of bkgnd button "Hiliter" to it
show bkgnd button "Hiliter"
end hiliteTopic</script>
</background>